<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<title>Discontinuous Galerkin: /home/ronaldo/workspace/DiscontinuousGalerkin/SolverList.f90 Source File</title>

<link href="tabs.css" rel="stylesheet" type="text/css"/>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<script type="text/javascript">
  $(document).ready(initResizable);
</script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
  $(document).ready(function() { searchBox.OnSelectItem(0); });
</script>

</head>
<body>
<div id="top"><!-- do not remove this div! -->


<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr style="height: 56px;">
  
  
  <td style="padding-left: 0.5em;">
   <div id="projectname">Discontinuous Galerkin
   &#160;<span id="projectnumber">0.0.01</span>
   </div>
   <div id="projectbrief">Teste</div>
  </td>
  
  
  
 </tr>
 </tbody>
</table>
</div>

<!-- Generated by Doxygen 1.7.5.1 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="annotated.html"><span>Data&#160;Types&#160;List</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li>
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>File&#160;Members</span></a></li>
    </ul>
  </div>
</div>
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
  initNavTree('_solver_list_8f90.html','');
</script>
<div id="doc-content">
<div class="header">
  <div class="headertitle">
<div class="title">/home/ronaldo/workspace/DiscontinuousGalerkin/SolverList.f90</div>  </div>
</div>
<div class="contents">
<a href="_solver_list_8f90.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a><a class="code" href="class_solver_element_list.html">00001</a> <span class="keyword">module</span> <a class="code" href="class_solver_element_list.html">SolverElementList</a>
<a name="l00002"></a>00002 
<a name="l00003"></a><a class="code" href="class_solver_element_list.html#a07043f4f80687b36e19e157b856a0fe2">00003</a>     <span class="keywordtype">integer</span>, <span class="keywordtype">parameter</span> :: FirstSolutionRow = 1
<a name="l00004"></a><a class="code" href="class_solver_element_list.html#a6939a471b61f2648f21f912599e2bb8a">00004</a>     <span class="keywordtype">integer</span>, <span class="keywordtype">parameter</span> :: SecondSolutionRow = 2
<a name="l00005"></a><a class="code" href="class_solver_element_list.html#ac9ef2d6f3e126ab0c92707137d6edb20">00005</a>     <span class="keywordtype">integer</span>, <span class="keywordtype">parameter</span> :: BulkSolutionRow = 3
<a name="l00006"></a>00006 
<a name="l00007"></a>00007 
<a name="l00008"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html">00008</a>     <span class="keyword">type</span> <a class="code" href="class_solver_list.html">SolverList</a>
<a name="l00009"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#a57837a8319cc5f058a74b820eaf3006c">00009</a>         <span class="keywordtype">integer</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">allocatable</span> :: first
<a name="l00010"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#a8849e1c43257457eb8a11fa3ca7951b3">00010</a>         <span class="keywordtype">integer</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">allocatable</span> :: second
<a name="l00011"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#aba6d89d601bc39d0a94bd35aa7adcbdb">00011</a>         <span class="keywordtype">integer</span>, <span class="keywordtype">dimension(:)</span>, <span class="keywordtype">allocatable</span> :: bulk
<a name="l00012"></a>00012 
<a name="l00013"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#a727ce75cc3bb7b6d11221f40ab13321b">00013</a>         <span class="keywordtype">integer</span> :: biggestIndex
<a name="l00014"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#af659e27051c1b51d6d89cb87cdcce6fd">00014</a>         <span class="keywordtype">integer</span> :: smallestIndex
<a name="l00015"></a>00015 
<a name="l00016"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#ad8fb3c692300209a78e5510257a30be4">00016</a>         <span class="keywordtype">integer</span> :: nFirst
<a name="l00017"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#aea9ea4bf0fb0a100380bcde48166bf0c">00017</a>         <span class="keywordtype">integer</span> :: nSecond
<a name="l00018"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#aa37bb1e28f35fe5046b2c5ecc6e6c24b">00018</a>         <span class="keywordtype">integer</span> :: nBulk
<a name="l00019"></a>00019 
<a name="l00020"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#af8a915a491755e0598ec6891b6fb04ee">00020</a>         <span class="keywordtype">integer</span> :: actualFirst <span class="comment">!&lt; Controls the index of the lattest solved item on the first group of itens to solve</span>
<a name="l00021"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#afa4cc4b06ab7d8adf4d2df0d1e19b06e">00021</a>         <span class="keywordtype">integer</span> :: actualSecond <span class="comment">!&lt; Controls the index of the lattest solved item on the second group of itens to solve</span>
<a name="l00022"></a><a class="code" href="struct_solver_element_list_1_1_solver_list.html#a633a62ec7c6bd2f84a7cb9961c4d572b">00022</a>         <span class="keywordtype">integer</span> :: actualBulk
<a name="l00023"></a>00023 <span class="keyword">    end type</span>
<a name="l00024"></a>00024 
<a name="l00025"></a>00025 <span class="keyword">contains</span>
<a name="l00026"></a>00026 
<a name="l00027"></a>00027 
<a name="l00028"></a><a class="code" href="class_solver_element_list.html#a570f578aba8e03134ed18479e526af93">00028</a>     <span class="keyword">subroutine </span>StartSolverList(List, maxFirst, maxSecond, maxBulk, smallest, biggest)
<a name="l00029"></a>00029         <span class="keyword">implicit none</span>
<a name="l00030"></a>00030         <span class="keywordtype">type(SolverList)</span>, <span class="keywordtype">intent(out)</span> :: List
<a name="l00031"></a>00031         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: maxFirst
<a name="l00032"></a>00032         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: maxSecond
<a name="l00033"></a>00033         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: maxBulk
<a name="l00034"></a>00034         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: smallest
<a name="l00035"></a>00035         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: biggest
<a name="l00036"></a>00036 
<a name="l00037"></a>00037         <span class="keywordtype">integer</span> :: rStatus
<a name="l00038"></a>00038 
<a name="l00039"></a>00039         <span class="keyword">allocate</span>(List%first(maxFirst), stat = rStatus)
<a name="l00040"></a>00040 
<a name="l00041"></a>00041         <span class="keyword">if</span>(rStatus /= 0) <span class="keyword">then</span>
<a name="l00042"></a>00042             print *, <span class="stringliteral">&#39;Error while trying to allocate memory for first list of solver.&#39;</span>
<a name="l00043"></a>00043             return
<a name="l00044"></a>00044         <span class="keyword">end if</span>
<a name="l00045"></a>00045 
<a name="l00046"></a>00046         <span class="keyword">allocate</span>(List%second(maxSecond), stat = rStatus)
<a name="l00047"></a>00047 
<a name="l00048"></a>00048         <span class="keyword">if</span>(rStatus /= 0) <span class="keyword">then</span>
<a name="l00049"></a>00049             print *, <span class="stringliteral">&#39;Error while trying to allocate memory for second list of solver.&#39;</span>
<a name="l00050"></a>00050             return
<a name="l00051"></a>00051         <span class="keyword">end if</span>
<a name="l00052"></a>00052 
<a name="l00053"></a>00053         <span class="keyword">allocate</span>(List%bulk(maxBulk), stat = rStatus)
<a name="l00054"></a>00054 
<a name="l00055"></a>00055         <span class="keyword">if</span>(rStatus /= 0) <span class="keyword">then</span>
<a name="l00056"></a>00056             print *, <span class="stringliteral">&#39;Error while trying to allocate memory for bulk list of solver.&#39;</span>
<a name="l00057"></a>00057             return
<a name="l00058"></a>00058         <span class="keyword">end if</span>
<a name="l00059"></a>00059 
<a name="l00060"></a>00060         <span class="keyword">if</span>(smallest &lt;= biggest ) <span class="keyword">then</span>
<a name="l00061"></a>00061             List % smallestIndex = smallest
<a name="l00062"></a>00062             List % biggestIndex = biggest
<a name="l00063"></a>00063         <span class="keyword">else</span>
<a name="l00064"></a>00064             print *, <span class="stringliteral">&#39;Error while trying to apply minimal and maximal index value. Smallest index is bigger than the biggest.&#39;</span>
<a name="l00065"></a>00065             return
<a name="l00066"></a>00066         <span class="keyword">end if</span>
<a name="l00067"></a>00067 
<a name="l00068"></a>00068         List % actualFirst = 0
<a name="l00069"></a>00069         List % actualSecond = 0
<a name="l00070"></a>00070         List % actualBulk = 0
<a name="l00071"></a>00071 <span class="keyword">    end subroutine</span>
<a name="l00072"></a>00072 
<a name="l00073"></a><a class="code" href="class_solver_element_list.html#a095acdfdcfb1bd29917c1336d95e3f5d">00073</a>     <span class="keyword">subroutine </span>EraseSolverList(List)
<a name="l00074"></a>00074         <span class="keyword">implicit none</span>
<a name="l00075"></a>00075         <span class="keywordtype">type(SolverList)</span>, <span class="keywordtype">intent(out)</span> :: List
<a name="l00076"></a>00076 
<a name="l00077"></a>00077         <span class="keyword">deallocate</span>(List % first)
<a name="l00078"></a>00078         <span class="keyword">deallocate</span>(List % second)
<a name="l00079"></a>00079         <span class="keyword">deallocate</span>(List % bulk)
<a name="l00080"></a>00080 
<a name="l00081"></a>00081         List % nFirst = 0
<a name="l00082"></a>00082         List % nSecond = 0
<a name="l00083"></a>00083         List % nBulk = 0
<a name="l00084"></a>00084 
<a name="l00085"></a>00085         List % smallestIndex = 0
<a name="l00086"></a>00086         List % biggestIndex = 0
<a name="l00087"></a>00087 <span class="keyword">    end subroutine</span>
<a name="l00088"></a>00088 
<a name="l00089"></a>00089 
<a name="l00090"></a>00090 
<a name="l00091"></a><a class="code" href="class_solver_element_list.html#a8c31e4de7987718acc4f920d4af61aae">00091</a>     <span class="keywordtype">pure</span> <span class="keyword">function </span>IndexIsValid(List, ItemIndex) result (lvalue)
<a name="l00092"></a>00092         <span class="keyword">implicit none</span>
<a name="l00093"></a>00093         <span class="keywordtype">type(SolverList)</span>, <span class="keywordtype">intent(in)</span> :: List
<a name="l00094"></a>00094         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: ItemIndex
<a name="l00095"></a>00095 
<a name="l00096"></a>00096         <span class="keywordtype">logical</span> :: lvalue
<a name="l00097"></a>00097 
<a name="l00098"></a>00098         lvalue = (List % smallestIndex &lt;= ItemIndex .and. ItemIndex &lt;= List % biggestIndex)
<a name="l00099"></a>00099 <span class="keyword">    end function</span>
<a name="l00100"></a>00100 
<a name="l00101"></a>00101 
<a name="l00102"></a>00102 
<a name="l00103"></a><a class="code" href="class_solver_element_list.html#a7a0c02db63491e10d7a635aceff6ff94">00103</a>     <span class="keyword">subroutine </span>AddToSolverList(List, Destination, ItemIndex)
<a name="l00104"></a>00104         <span class="keyword">implicit none</span>
<a name="l00105"></a>00105         <span class="keywordtype">type(SolverList)</span>, <span class="keywordtype">intent(out)</span> :: List
<a name="l00106"></a>00106         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: Destination
<a name="l00107"></a>00107         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: ItemIndex
<a name="l00108"></a>00108 
<a name="l00109"></a>00109         <span class="keyword">select</span> <span class="keyword">case</span>(Destination)
<a name="l00110"></a>00110             <span class="keyword">case</span>(FirstSolutionRow)
<a name="l00111"></a>00111                 <span class="keyword">if</span>(IndexIsValid(List, ItemIndex) .and. <span class="keyword">size</span>(List%first) &lt;= List%nFirst+1) <span class="keyword">then</span>
<a name="l00112"></a>00112                     List % first(List%nFirst+1) = ItemIndex
<a name="l00113"></a>00113                     List%nFirst = List%nFirst+1
<a name="l00114"></a>00114                 <span class="keyword">end if</span>
<a name="l00115"></a>00115             <span class="keyword">case</span>(SecondSolutionRow)
<a name="l00116"></a>00116                 <span class="keyword">if</span>(IndexIsValid(List, ItemIndex) .and. <span class="keyword">size</span>(List%second) &lt;= List%nSecond+1) <span class="keyword">then</span>
<a name="l00117"></a>00117                     List % second(List%nSecond+1) = ItemIndex
<a name="l00118"></a>00118                     List%nSecond = List%nSecond+1
<a name="l00119"></a>00119                 <span class="keyword">end if</span>
<a name="l00120"></a>00120             <span class="keyword">case</span>(BulkSolutionRow)
<a name="l00121"></a>00121                 <span class="keyword">if</span>(IndexIsValid(List, ItemIndex) .and. <span class="keyword">size</span>(List%bulk) &lt;= List%nBulk+1) <span class="keyword">then</span>
<a name="l00122"></a>00122                     List % bulk(List%nBulk+1) = ItemIndex
<a name="l00123"></a>00123                     List%nBulk = List%nBulk+1
<a name="l00124"></a>00124                 <span class="keyword">end if</span>
<a name="l00125"></a>00125             <span class="keyword">case</span> default
<a name="l00126"></a>00126                 print *, <span class="stringliteral">&#39;Invalid Destination for sublist of solver.&#39;</span>
<a name="l00127"></a>00127         <span class="keyword">end select</span>
<a name="l00128"></a>00128 <span class="keyword">    end subroutine</span>
<a name="l00129"></a>00129 
<a name="l00137"></a><a class="code" href="class_solver_element_list.html#ad9fcc286359ebf8bd3d6d6dc7a3346be">00137</a>     <span class="keywordtype">pure</span> <span class="keyword">function </span>IsOnList(List, Destination, ItemIndex) result (lvalue)
<a name="l00138"></a>00138         <span class="keyword">implicit none</span>
<a name="l00139"></a>00139         <span class="keywordtype">type(SolverList)</span>, <span class="keywordtype">intent(in)</span> :: List
<a name="l00140"></a>00140         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: Destination
<a name="l00141"></a>00141         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: ItemIndex
<a name="l00142"></a>00142 
<a name="l00143"></a>00143         <span class="keywordtype">integer</span> :: lvalue
<a name="l00144"></a>00144         <span class="keywordtype">integer</span> :: n
<a name="l00145"></a>00145         <span class="keyword">select</span> <span class="keyword">case</span>(Destination)
<a name="l00146"></a>00146             <span class="keyword">case</span>(FirstSolutionRow)
<a name="l00147"></a>00147                 <span class="keyword">do</span> lvalue = 1, List % nFirst
<a name="l00148"></a>00148                     <span class="keyword">if</span>(List%first(lvalue) == ItemIndex) <span class="keyword">then</span>
<a name="l00149"></a>00149                         return
<a name="l00150"></a>00150                     <span class="keyword">end if</span>
<a name="l00151"></a>00151                 <span class="keyword">end do</span>
<a name="l00152"></a>00152                 lvalue = 0
<a name="l00153"></a>00153             <span class="keyword">case</span>(SecondSolutionRow)
<a name="l00154"></a>00154                 <span class="keyword">do</span> lvalue = 1, List % nSecond
<a name="l00155"></a>00155                     <span class="keyword">if</span>(List%second(lvalue) == ItemIndex) <span class="keyword">then</span>
<a name="l00156"></a>00156                         return
<a name="l00157"></a>00157                     <span class="keyword">end if</span>
<a name="l00158"></a>00158                 <span class="keyword">end do</span>
<a name="l00159"></a>00159             <span class="keyword">case</span>(BulkSolutionRow)
<a name="l00160"></a>00160                 <span class="keyword">do</span> lvalue = 1, List % nBulk
<a name="l00161"></a>00161                     <span class="keyword">if</span>(List%bulk(lvalue) == ItemIndex) <span class="keyword">then</span>
<a name="l00162"></a>00162                         return
<a name="l00163"></a>00163                     <span class="keyword">end if</span>
<a name="l00164"></a>00164                 <span class="keyword">end do</span>
<a name="l00165"></a>00165         <span class="keyword">end select</span>
<a name="l00166"></a>00166 <span class="keyword">    end function</span>
<a name="l00167"></a>00167 
<a name="l00173"></a><a class="code" href="class_solver_element_list.html#a74382d6f738bb1db8b60fcc6d3eae656">00173</a>     <span class="keyword">function </span>NextIndex(List, Destination) result (lvalue)
<a name="l00174"></a>00174         <span class="keyword">implicit none</span>
<a name="l00175"></a>00175         <span class="keywordtype">type(SolverList)</span>, <span class="keywordtype">intent(inout)</span> :: List
<a name="l00176"></a>00176         <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: Destination
<a name="l00177"></a>00177 
<a name="l00178"></a>00178                 <span class="keywordtype">integer</span> :: lvalue
<a name="l00179"></a>00179 
<a name="l00180"></a>00180         <span class="keyword">select</span> <span class="keyword">case</span>(Destination)
<a name="l00181"></a>00181             <span class="keyword">case</span>(FirtSolutionRow)
<a name="l00182"></a>00182                                 <span class="keyword">if</span> (List % actualFirst == List % nFirst) <span class="keyword">then</span>
<a name="l00183"></a>00183                                         List % actualFirst = 1
<a name="l00184"></a>00184                                 <span class="keyword">else</span>
<a name="l00185"></a>00185                                         List % actualFirst = List % actualFirst + 1
<a name="l00186"></a>00186                                 <span class="keyword">end if</span>
<a name="l00187"></a>00187                                 lvalue = List % first(List % actualFirst)
<a name="l00188"></a>00188             <span class="keyword">case</span>(SecondSolutionRow)
<a name="l00189"></a>00189                                 <span class="keyword">if</span> (List % actualSecond == List % nSecond) <span class="keyword">then</span>
<a name="l00190"></a>00190                                         List % actualSecond = 1
<a name="l00191"></a>00191                                 <span class="keyword">else</span>
<a name="l00192"></a>00192                                         List % actualSecond = List % actualSecond + 1
<a name="l00193"></a>00193                                 <span class="keyword">end if</span>
<a name="l00194"></a>00194                                 List % actualSecond = List % actualSecond + 1
<a name="l00195"></a>00195                                 lvalue = List % second(List % actualSecond)
<a name="l00196"></a>00196             <span class="keyword">case</span>(BulkSolutionRow)
<a name="l00197"></a>00197                                 <span class="keyword">if</span> (List % actualBulk == List % nBulk) <span class="keyword">then</span>
<a name="l00198"></a>00198                                         List % actualBulk = 1
<a name="l00199"></a>00199                                 <span class="keyword">else</span>
<a name="l00200"></a>00200                                         List % actualBulk = List % actualBulk + 1
<a name="l00201"></a>00201                                 <span class="keyword">end if</span>
<a name="l00202"></a>00202                                 List % actualBulk = List % actualBulk + 1
<a name="l00203"></a>00203                                 lvalue = List % bulk(List % actualBulk)
<a name="l00204"></a>00204         <span class="keyword">end select</span>
<a name="l00205"></a>00205 <span class="keyword">    end function</span>
<a name="l00206"></a>00206 
<a name="l00207"></a>00207 
<a name="l00208"></a><a class="code" href="class_solver_element_list.html#a3238be29372747f7e64edf9e91241133">00208</a>         <span class="keywordtype">pure</span> <span class="keyword">function </span>IsFinished(List, Destination) result (lvalue)
<a name="l00209"></a>00209                 <span class="keyword">implicit none</span>
<a name="l00210"></a>00210                 <span class="keywordtype">type(SolverList)</span>, <span class="keywordtype">intent(in)</span> :: List
<a name="l00211"></a>00211                 <span class="keywordtype">integer</span>, <span class="keywordtype">intent(in)</span> :: Destination
<a name="l00212"></a>00212                 <span class="keywordtype">logical</span> :: lvalue
<a name="l00213"></a>00213 
<a name="l00214"></a>00214                 <span class="keyword">select</span> <span class="keyword">case</span>(Destination)
<a name="l00215"></a>00215                         <span class="keyword">case</span> (FirstSolutionRow)
<a name="l00216"></a>00216                                 lvalue = List % nFirst == List % actualFirst
<a name="l00217"></a>00217                         <span class="keyword">case</span> (SecondSolutionRow)
<a name="l00218"></a>00218                                 lvalue = List % nSecond == List % actualSecond
<a name="l00219"></a>00219                         <span class="keyword">case</span> (BulkSolutionRow)
<a name="l00220"></a>00220                                 lvalue = List % nBulk == List % actualBulk
<a name="l00221"></a>00221                 <span class="keyword">end select</span>
<a name="l00222"></a>00222 <span class="keyword">        end function</span>
<a name="l00223"></a>00223 
<a name="l00224"></a>00224 
<a name="l00225"></a>00225 
<a name="l00226"></a>00226 <span class="keyword">end module</span>
</pre></div></div>
</div>
  <div id="nav-path" class="navpath">
    <ul>
      <li class="navelem"><a class="el" href="_solver_list_8f90.html">SolverList.f90</a>      </li>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>


    <li class="footer">Generated on Wed Jun 20 2012 15:23:54 for Discontinuous Galerkin by
    <a href="http://www.doxygen.org/index.html">
    <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.7.5.1 </li>
   </ul>
 </div>


</body>
</html>
